home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3plsar.arc / LATE.PRG < prev    next >
Encoding:
Text File  |  1986-08-04  |  3.0 KB  |  116 lines
  1. ******************************* (LATE.PRG)
  2. CLEAR
  3. @ 15,15 SAY 'This needs the printer turned on and ready to go.'
  4. @ 17,27 SAY 'Do you want to continue?'
  5. store ' ' to option
  6. WAIT '                                    ? ' TO OPTION
  7. IF OPTION<>'Y'
  8.    RETURN
  9. ENDIF
  10. CLEA
  11. SET EXACT ON
  12. STORE DTOC(DATE()) TO MDATE
  13. SET TALK ON
  14. USE LATE
  15. ZAP
  16. APPEND FROM INV FOR .NOT. PAID .AND. NEWDATE < CTOD(MDATE) - 75
  17. REPLACE ALL DUEDATE WITH NEWDATE+30
  18. CLEA
  19. SET DEVICE TO PRINT
  20. SET MARGIN TO 4
  21. SET PRINT ON
  22. ?
  23. ? '         Use this list to determine who will get the letter.'
  24. ? '         =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-='
  25. ?
  26. ?
  27. LIST OFF ACCT,NEWDATE,INVNO,PONO,PRICE,CRINV,AMTAPPL,NET
  28. ?
  29. SET PRINT OFF
  30. SET DEVICE TO SCREEN
  31. EJECT
  32. EJECT
  33. SET HEADING OFF
  34. SET TALK OFF
  35. DO WHILE .T.
  36.    USE CUST INDEX ACCT
  37.    CLEAR
  38.    @ 1,1 SAY ì
  39. [=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ì
  40. -=-=-=-=-=]
  41.    @ 4,1 SAY 'This is set up to run on Tops #5062 2-way continuous ì
  42. mailers.'
  43.    @ 5,1 say 'Check your local office supply store for this form.'
  44.    @ 6,1 say 'Or call us and we can send to you in a couple of ì
  45. days.'
  46.    @ 7,1 SAY [We will ship you a box of 350 freight free for $ 49.95 ì
  47. anywhere in the U.S.]
  48.    @ 8,1 say 'The form contains a file copy, a 1st class mail ì
  49. envelope,'
  50.    @ 9,1 say 'a duplicate of the original,and a return envelope.'
  51.    @ 10,1 say 'Run a sample on blank paper to test first.'
  52.    @ 11,1 SAY 'Set 1st form flush at top of form.'
  53.    @ 13,1 SAY [Sorry,but you are going to have to set your printer ì
  54. form length to 5 1/2"]
  55.    @ 15,1 SAY 'Want to run a late report?'
  56.    @ 18,1 SAY ì
  57. [=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=ì
  58. -=-=-=-=-=]
  59.    ?
  60.    ?
  61.    STORE ' ' TO OPTION
  62.    WAIT ' Press Y or N  ' TO OPTION
  63.    IF OPTION= 'N'
  64.       RETURN
  65.    ENDIF
  66.    CLEAR
  67.    STORE 0.00 TO MNET 
  68.    CLEAR
  69.    ACCEPT 'Which account? ' TO X
  70.    FIND &X
  71.    MATTN=ATTN
  72.    MNAME=NAME
  73.    MADDRESS=ADDRESS
  74.    MCITY=CITY
  75.    MSTATE=STATE
  76.    MZIP=ZIP
  77.    USE LATE
  78.    STORE 0.00 TO GEE
  79.    SUM NET FOR ACCT=X TO GEE
  80.    SET DEVICE TO PRINT
  81.    SET MARGIN TO 4
  82.    SET PRINT ON
  83.    CLEAR
  84.    @ 2,1 SAY MTITLE
  85.    @ 3,1 SAY MADD1
  86.    @ 4,1 SAY MADD2
  87.    @ 5,1 SAY MPHONE
  88.    @ 7,1 SAY 'These invoices show as over 45 days past the due date,can ì
  89. you please help?'
  90.    @ 8,0 SAY 'Invoice  Date      Amount   Credits  Payments      Net ì
  91. Dueì
  92.       Due Date'
  93.    @ 9,0 SAY ì
  94. '-----------------------------------------------------------------ì
  95. ---------'
  96.    LIST OFF INVNO,NEWDATE,PRICE,CRINV,AMTAPPL,'  ',NET,'    ',DUEDATE FOR ACCT=X
  97.    ? '                                       total due ì
  98. $'+STR(GEE,8,2)
  99.    @ 22,8 SAY MTITLE
  100.    @ 22,39 SAY MATTN
  101.    @ 23,8 SAY MADD1
  102.    @ 23,39 SAY MNAME
  103.    @ 24,8 SAY MADD2
  104.    @ 24,39 SAY MADDRESS
  105.    @ 25,39 SAY TRIM(MCITY) +' '+ MSTATE +' '+ MZIP
  106.    ?
  107.    SET DEVICE TO SCREEN
  108.    SET PRINT OFF
  109.    SET MARGIN TO 0
  110.    clea
  111.    ?
  112.    ? [Don't forget to set your printer back to regular form length ì
  113. when done.]
  114.    ?
  115. ENDDO
  116.